home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / cmdline.swg / 0004_Get Command Line #3.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  291b  |  15 lines
  1. Program CommandLine;    { CL.PAS }
  2. Var
  3.   CharCount,
  4.   i         :Word;
  5. begin
  6.   CharCount := Mem[PrefixSeg:$80];  { number of input Characters}
  7.   WriteLn('Input Characters: ', CharCount );
  8.   For i := 1 to CharCount do Write( CHR( Mem[PrefixSeg:$80+i] ));
  9.     WriteLn;
  10. end.
  11.  
  12.  
  13.  
  14.  
  15.